home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / FILL DEMO 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  393b  |  11 lines
  1. 10  HOME 
  2. 20  PRINT  CHR$(4)"BLOAD FILL.OBJ0"
  3. 30 FILL = 768
  4. 40  HGR 
  5. 50  VTAB 21
  6. 60  INPUT "COLOR & NUMBER OF SPACES ? ";COLR,SP
  7. 70  INPUT "LEFT COLUMN & TOP ROW ? ";LC,TR
  8. 80  INPUT "RIGHT COLUMN & BOTTOM ROW ? ";RC,BR
  9. 90  CALL FILL,COLR,LC,TR,RC,BR,SP
  10. 100  HCOLOR= 3: HPLOT LC,TR: HPLOT  TO RC,TR TO RC,BR TO LC,BR TO LC,TR: HPLOT LC +1,TR TO LC +1,BR: HPLOT RC +1,TR TO RC +1,BR
  11. 110  GOTO 50